home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Online / hsc / docs-source / inc / webpage.hsc < prev   
Encoding:
Text File  |  1997-10-01  |  3.0 KB  |  113 lines

  1. <**************************************
  2. * OuputStyle                          *
  3. ***************************************>
  4. <$define OutputStyle:enum('html|tex')="html">
  5.  
  6. <**************************************
  7. * WEBPAGE_NAVIGATION                  *
  8. *   this is a local macro that is     *
  9. *   allowed to be used from inside of *
  10. *   <WEBPAGE> (see below)             *
  11. *   it inserts a navigation bar at    *
  12. *   current position                  *
  13. ***************************************>
  14. <$macro WEBPAGE_NAVIGATION /MBI="WEBPAGE">
  15. <** main button **>
  16. <$if COND=(NOT SET NoMain)>
  17. <A HREF=":index.html"><IMG SRC=":image/main.gif" ALT="Contents" ALIGN="middle"></A>
  18. <$else>
  19. <IMG SRC=":image/nomain.gif" ALT="----" ALIGN="middle">
  20. </$if>
  21. <** insert "index" button **>
  22. <$if COND=(NOT SET NoIndex)>
  23. <A HREF=":index.html"><IMG SRC=":image/index.gif" ALT="Index" ALIGN="middle"></A>
  24. <$else>
  25. <IMG SRC=":image/noindex.gif" ALT="-----" ALIGN="middle">
  26. </$if>
  27. <** copyright button **>
  28. <$if COND=(NOT SET NoCopy)>
  29. <A HREF=":copy.html"><IMG SRC=":image/copy.gif" ALT="Copyright" ALIGN="middle"></A>
  30. <$else>
  31. <IMG SRC=":image/nocopy.gif" ALT="---------" ALIGN="middle">
  32. </$if>
  33. <** insert "back" (up) button **>
  34. <$if COND=(SET Back)>
  35. <A HREF=(Back)><IMG SRC=":image/back.gif" ALT="Up" ALIGN="middle"></A>
  36. <$else>
  37. <IMG SRC=":image/noback.gif" ALT="--" ALIGN="middle">
  38. </$if>
  39. <** insert "previous" button **>
  40. <$if COND=(SET Prev)>
  41. <A HREF=(Prev)><IMG SRC=":image/prev.gif" ALT="Previous" ALIGN="middle"></A>
  42. <$else>
  43. <IMG SRC=":image/noprev.gif" ALT="--------" ALIGN="middle">
  44. </$if>
  45. <** insert "next" button **>
  46. <$if COND=(SET Next)>
  47. <A HREF=(Next)><IMG SRC=":image/next.gif" ALT="Next" ALIGN="middle"></A>
  48. <$else>
  49. <IMG SRC=":image/nonext.gif" ALT="----" ALIGN="middle">
  50. </$if>
  51. </$macro>
  52.  
  53. <*****************************
  54. * WEBPAGE                    *
  55. ******************************>
  56. <$macro WEBPAGE /CLOSE Title:string/r
  57.                 Chapter:string=""
  58.                 Next:uri prev:uri
  59.                 Back:uri=":index.html"
  60.                 NoIndex:bool="true"
  61.                 NoCopy:bool
  62.                 NoMain:bool
  63.                 QTEXT:string QAUTHOR:string>
  64. <HTML>
  65. <HEAD>
  66.   <TITLE><(Chapter)><(Title)></TITLE>
  67.   <LINK REV="owns" TITLE="Thomas Aglassinger" HREF="mailto:agi@giga.or.at">
  68.   <$if COND=(SET NoMain)>
  69.   <LINK REL="Home" HREF=":hsc.html">
  70.   </$if>
  71.   <LINK REL="Copyright" HREF=":copy.html">
  72.   <$if COND=(SET prev)>
  73.   <LINK REL="Previous" HREF=(Prev)>
  74.   </$if>
  75.   <$if COND=(SET next)>
  76.   <LINK REL="Next" HREF=(Next)>
  77.   </$if>
  78. </HEAD>
  79. <BODY>
  80.  
  81. <*
  82.  * insert navigation bar and quote
  83.  * (not for latex-version)
  84.  *>
  85. <$if COND=(OutputStyle="html")>
  86. <Webpage_Navigation>
  87. <HR>
  88. <* insert quote *>
  89. <$if COND=(SET QTEXT)>
  90. <P ALIGN="right"><I><(QTEXT)></I><BR>
  91.   <$if COND=(SET QAUTHOR)>
  92.     (<(QAUTHOR)>)
  93.   </$if>
  94. </P>
  95. </$if>
  96. </$if>
  97.  
  98.  
  99. <H1><(Title)></H1>
  100. <$content>
  101. <*
  102. <HR>
  103. <$let HSC.FORMAT.TIME="%d-%b-%Y">
  104. <ADDRESS>
  105.   Thomas Aglassinger
  106.   (<A HREF="mailto:agi@giga.or.at">agi@giga.or.at</A>),
  107.   <(GetTime())>
  108. </ADDRESS>
  109. *>
  110. </BODY></HTML>
  111. </$macro>
  112.  
  113.